perm filename TAPA.SCR[SCR,LCS] blob
sn#369185 filedate 1978-07-19 generic text, type T, neo UTF8
FUNC FUN.FUN[SCR,LCS];
INST TOOT TOP BOTM;
PLAY;REVERB 0 30;
< TAPA .SCR -- RANDOM NUMBER= 1
PLAY;
TOP 0.000 1.691 E*4 0.600 F2 F4 0.000 0.000 0.000 0.000
0.000 0.000 0.050
;PRINT P1;< TOP 1
BOTM 0.000 1.128 C/2 0.900 F3 F7
;PRINT P1;< BOTM 1
BOTM 1.128 0.966 D/2 0.900 F3 F7
;PRINT P1;< BOTM 2
TOP 1.691 0.650 B*2 0.600 F2 F4
;PRINT P1;< TOP 2
BOTM 2.094 0.966 E/2 0.900 F3 F7
;PRINT P1;< BOTM 3
TOP 2.341 0.824 GS 0.600 F2 F4
;PRINT P1;< TOP 3
BOTM 3.060 0.940 F/2 0.900 F3 F7
;PRINT P1;< BOTM 4
TOP 3.165 1.995 D 0.600 F2 F4
;PRINT P1;< TOP 4
BOTM 4.000 1.061 C/2 0.900 F3 F7
;PRINT P1;< BOTM 5
BOTM 5.061 1.007 D/2 0.900 F3 F7
;PRINT P1;< BOTM 6
TOP 5.160 0.780 G*4 0.600 F2 F4
;PRINT P1;< TOP 5
TOP 5.940 2.385 E*4 0.600 F2 F4
;PRINT P1;< TOP 6
BOTM 6.068 0.952 E/2 0.900 F3 F7
;PRINT P1;< BOTM 7
BOTM 7.020 0.980 F/2 0.900 F3 F7
;PRINT P1;< BOTM 8
BOTM 8.000 0.941 C/2 0.900 F3 F7
;PRINT P1;< BOTM 9
TOP 8.325 1.431 GS*2 0.600 F2 F4
;PRINT P1;< TOP 7
BOTM 8.941 0.994 D/2 0.900 F3 F7
;PRINT P1;< BOTM 10
TOP 9.756 0.607 CS 0.600 F2 F4
;PRINT P1;< TOP 8
BOTM 9.935 1.072 E/2 0.900 F3 F7
;PRINT P1;< BOTM 11
TOP 10.363 0.650 DS*2 0.600 F2 F4
;PRINT P1;< TOP 9
BOTM 11.007 0.994 F/2 0.900 F3 F7
;PRINT P1;< BOTM 12
TOP 11.013 2.081 D*2 0.600 F2 F4
;PRINT P1;< TOP 10
BOTM 12.001 0.960 C/2 0.900 F3 F7
;PRINT P1;< BOTM 13
BOTM 12.961 0.853 D/2 0.900 F3 F7
;PRINT P1;< BOTM 14
TOP 13.094 0.954 DS*4 0.600 F2 F4
;PRINT P1;< TOP 11
BOTM 13.814 1.067 E/2 0.900 F3 F7
;PRINT P1;< BOTM 15
TOP 14.048 2.602 DS 0.600 F2 F4
;PRINT P1;< TOP 12
BOTM 14.881 1.120 F/2 0.900 F3 F7
;PRINT P1;< BOTM 16
BOTM 16.001 0.901 C/2 0.900 F3 F7
;PRINT P1;< BOTM 17
TOP 16.650 1.171 DS*2 0.600 F2 F4
;PRINT P1;< TOP 13
BOTM 16.902 0.817 D/2 0.900 F3 F7
;PRINT P1;< BOTM 18
BOTM 17.719 1.005 E/2 0.900 F3 F7
;PRINT P1;< BOTM 19
TOP 17.821 0.477 AS 0.600 F2 F4
;PRINT P1;< TOP 14
TOP 18.298 0.694 F*2 0.600 F2 F4
;PRINT P1;< TOP 15
BOTM 18.724 1.278 F/2 0.900 F3 F7
;PRINT P1;< BOTM 20
TOP 18.992 1.908 GS 0.600 F2 F4
;PRINT P1;< TOP 16
BOTM 20.002 1.128 C/2 0.900 F3 F7
;PRINT P1;< BOTM 21
TOP 20.900 0.737 A 0.600 F2 F4
;PRINT P1;< TOP 17
BOTM 21.130 0.966 D/2 0.900 F3 F7
;PRINT P1;< BOTM 22
TOP 21.637 2.949 FS*2 0.600 F2 F4
;PRINT P1;< TOP 18
BOTM 22.096 0.966 E/2 0.900 F3 F7
;PRINT P1;< BOTM 23
BOTM 23.062 0.940 F/2 0.900 F3 F7
;PRINT P1;< BOTM 24
BOTM 24.002 1.061 C/2 0.900 F3 F7
;PRINT P1;< BOTM 25
TOP 24.586 1.257 DS*2 0.600 F2 F4
;PRINT P1;< TOP 19
BOTM 25.063 1.007 D/2 0.900 F3 F7
;PRINT P1;< BOTM 26
TOP 25.843 0.650 E*4 0.600 F2 F4
;PRINT P1;< TOP 20
BOTM 26.070 0.952 E/2 0.900 F3 F7
;PRINT P1;< BOTM 27
TOP 26.493 0.694 E 0.600 F2 F4
;PRINT P1;< TOP 21
BOTM 27.022 0.980 F/2 0.900 F3 F7
;PRINT P1;< BOTM 28
TOP 27.187 2.081 F*2 0.600 F2 F4
;PRINT P1;< TOP 22
BOTM 28.002 0.941 C/2 0.900 F3 F7
;PRINT P1;< BOTM 29
BOTM 28.943 0.993 D/2 0.900 F3 F7
;PRINT P1;< BOTM 30
TOP 29.268 0.824 DS*2 0.600 F2 F4
;PRINT P1;< TOP 23
BOTM 29.936 1.072 E/2 0.900 F3 F7
;PRINT P1;< BOTM 31
TOP 30.092 1.908 F*4 0.600 F2 F4
;PRINT P1;< TOP 24
BOTM 31.008 0.994 F/2 0.900 F3 F7
;PRINT P1;< BOTM 32
TOP 32.000 1.691 AS 0.600 F2 F4
;PRINT P1;< TOP 25
BOTM 32.002 0.960 C/2 0.900 F3 F7
;PRINT P1;< BOTM 33
FINISH; < TAPA .SCR